count  equ  3
       org $800
; compute sum of array alpha
        move.w  #count,d2   ;loop counter
        move.l  #alpha,a1   ;a1 points to array
        move.b  (a1)+,d3    ;sum is in d3
sum     add.b  (a1)+,d3        ;loop sum
        dbvs    d2,sum
;        b
        move.b  d3,result
finish  nop

          org $b00

alpha     ds.b 5
result    ds.b 1
